home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / TileForth / bin / short < prev   
Text File  |  1995-08-25  |  710b  |  38 lines
  1. #! /bin/sh
  2. # NAME
  3. #    short - a short description of available definitions in a tile file
  4. # SYNOPSIS
  5. #    short <file>
  6. # DESCRIPTION
  7. #    Gives all the defininition lines in a tile forth source file.
  8. #    
  9. # OPTIONS
  10. #    none
  11. # SEE ALSO
  12. #    tile(1), grep(1)
  13. # AUTHOR
  14. #    Mikael R.K. Patel
  15. #    Computer Aided Design Laboratory (CADLAB)
  16. #    Department of Computer and Information Science
  17. #    Linkoping University
  18. #    S-581 83 LINKOPING
  19. #    SWEDEN
  20. #    Email: mip@ida.liu.se
  21. # HISTORY
  22. #     Created on:     02 June 1990
  23. #    Lasted updated:    13 August 1990
  24.  
  25. if [ "$1" = "" ]
  26. then
  27.     echo "Usage:  short file ..."
  28. else
  29.     for file in $*
  30.     do    
  31.         echo "Definitions in: $file"
  32.         egrep " \-\- |^;" $file | \
  33.         egrep -v "does|exception|block\[ \("
  34.         echo
  35.     done
  36. fi
  37.  
  38.